home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / cnet / cnet_pager.lha / doors / pager / PagerAMaint < prev    next >
Encoding:
Text File  |  1998-03-15  |  1.0 KB  |  25 lines
  1. /**************************************************************************\
  2.        $VER: CNet Amiga Pager AMaint, v5.20 (15-Mar-98) by Dotoran!
  3. \**************************************************************************/
  4. options results;tr=transmit;gu=getuser;pu=putuser
  5. parse source . . fp .;df=left(fp,max(lastpos('/',fp),lastpos(':',fp)))
  6.  
  7. day=find("Sun Mon Tue Wed Thu Fri Sat",left(date("w"),3))
  8. hour=left(time("n"),2)+1
  9.  
  10. call open(f1,df"Availabilities","r")
  11.   do day;a=readln(f1);end;tog=substr(a,hour,1)
  12. call close(f1)
  13.  
  14. /*   3Ports  4Ports <-- For CNet3/4.26e Compatibility. check100; */
  15. dat="2124264 2127054"
  16. bbsidentify bbs;a=word(result,3);cnet=(datatype(left(a,4),"n")=1&a>"4.44")+3
  17. guPORTS=word(dat,(cnet=4)+1)
  18.  
  19. gu guPORTS;m=d2c(result);if BitTST(m,4)=tog then exit
  20.  
  21. m=BitCHG(m,4);setobject c2d(m);pu guPORTS
  22. if cnet=4 then do;setobject "1";pu 2128304;end /* check_latch; */
  23. /**************************************************************************\
  24. \****************************************** Frontiers BBS (716)/823-9892 **/
  25.